home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / casterli.arc / MATH.4TH < prev    next >
Text File  |  1986-04-26  |  1KB  |  83 lines
  1. ( Single Length Math Extentions - Screen 1 )
  2.  
  3. : MINUS NEGATE ;
  4.  
  5.                                                             -->
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17. ( Single Length Math Extentions - Screen 2 )
  18.  
  19. : 0>= 0< 0= ;
  20.  
  21. : 0<= 0> 0= ;
  22.  
  23. : SIGNX ( NUMBER --- SIGN ) DUP IF 0> DUP + 1 - THEN ;
  24.  ( Returns 0 +1 or -1 if NUMBER is 0  positive  or negative )
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. ( TEMP LOADING SCREEN )
  34. 1 LOAD
  35. 4 LOAD
  36. 7 LOAD
  37. 10 LOAD
  38. 12 LOAD
  39. 17 LOAD
  40. 22 LOAD
  41. 29 LOAD
  42. 39 LOAD
  43. 48 LOAD
  44.  
  45.  
  46.  
  47.  
  48.  
  49. ( Double Length Words - Screen 1 )
  50.  
  51. : .D CR DEPTH 2 / DUP IF 0 SWAP ." (Bottom) " SPACE DO SP@ I 1-
  52.   4 * + DUP @ SWAP 2 + @ SWAP D. -1 +LOOP SPACE ." (Top) "
  53.   CR ELSE DROP ." .D: Stack empty. " CR THEN ;
  54.   ( Non-destructive double length stack print )
  55.  
  56. : DMINUS DNEGATE ;
  57.  
  58.  
  59.  
  60.  
  61.  
  62.                                                             -->
  63.  
  64.  
  65. ( Double Length Words - Screen 2 )
  66.  
  67. ( : D/  D U --- D  SWAP OVER /MOD >R SWAP U/ SWAP DROP R> ; )
  68.  
  69. : D* ( D U --- D ) DUP ROT * ROT ROT U* ROT + ;
  70.  
  71. ( : D/MOD U/ ;   D U --- R Q )
  72.  
  73. : D+! DUP >R 2@ D+ R> 2! ;
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81. : D* ( D U --- D ) DUP ROT * ROT ROT U* ROT + ;
  82.  
  83. ( : D/MOD U/ ;